inherited FPesquisaMaladiretaFornecedor: TFPesquisaMaladiretaFornecedor
  Left = 308
  Top = 290
  Caption = 'Pesquisa Mala direta Fornecedor'
  ClientHeight = 256
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    inherited BtnLimpar: TBitBtn
      OnClick = BtnLimparClick
    end
    inherited BtnSelecionar: TBitBtn
      Enabled = False
    end
  end
  inherited Panel1: TPanel
    Height = 215
    object Label25: TLabel [0]
      Left = 2
      Top = 3
      Width = 29
      Height = 13
      Caption = 'Grupo'
    end
    object Label26: TLabel [1]
      Left = 88
      Top = 3
      Width = 20
      Height = 13
      Caption = 'M'#234's'
    end
    object Label27: TLabel [2]
      Left = 3
      Top = 44
      Width = 28
      Height = 13
      Caption = 'Nome'
    end
    object Label28: TLabel [3]
      Left = 261
      Top = 44
      Width = 28
      Height = 13
      Caption = 'Cargo'
    end
    object Label1: TLabel [4]
      Left = 177
      Top = 3
      Width = 54
      Height = 13
      Caption = 'Fornecedor'
    end
    object Label2: TLabel [5]
      Left = 42
      Top = 3
      Width = 16
      Height = 13
      Caption = 'Dia'
    end
    inherited DBGrid1: TDBGrid
      Top = 89
      TabOrder = 6
      Columns = <
        item
          Expanded = False
          FieldName = 'CODIGO'
          Title.Caption = 'C'#243'digo'
          Width = 39
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FORNECEDOR'
          Title.Caption = 'Fornecedor'
          Width = 210
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'GRUPO'
          Title.Caption = 'Grupo'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NOME'
          Title.Caption = 'Nome'
          Width = 286
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ANIVERSARIO'
          Title.Caption = 'Data Anivers'#225'rio'
          Width = 86
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CARGO'
          Title.Caption = 'Cargo'
          Visible = True
        end>
    end
    inherited Panel3: TPanel
      Top = 194
      TabOrder = 7
    end
    object EGrupo: TEdit
      Left = 2
      Top = 19
      Width = 30
      Height = 21
      CharCase = ecUpperCase
      MaxLength = 1
      TabOrder = 0
    end
    object ENome: TEdit
      Left = 3
      Top = 58
      Width = 254
      Height = 21
      CharCase = ecUpperCase
      MaxLength = 60
      TabOrder = 4
    end
    object ECargo: TEdit
      Left = 261
      Top = 58
      Width = 145
      Height = 21
      CharCase = ecUpperCase
      MaxLength = 30
      TabOrder = 5
    end
    object DBLCBFornecedor: TDBLookupComboBox
      Left = 177
      Top = 19
      Width = 229
      Height = 21
      KeyField = 'FORN_CODIGO'
      ListField = 'FORN_RAZAO'
      ListSource = DSFornecedor
      TabOrder = 3
      OnKeyDown = DBLCBFornecedorKeyDown
    end
    object CBMes: TComboBox
      Left = 88
      Top = 19
      Width = 88
      Height = 21
      CharCase = ecUpperCase
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 2
      Items.Strings = (
        ''
        'JANEIRO'
        'FEVEREIRO'
        'MAR'#199'O'
        'ABRIL'
        'MAIO'
        'JUNHO'
        'JULHO'
        'AGOSTO'
        'SETEMBRO'
        'OUTUBRO'
        'NOVEMBRO'
        'DEZEMBRO')
    end
    object CBDia: TComboBox
      Left = 37
      Top = 19
      Width = 48
      Height = 21
      CharCase = ecUpperCase
      ItemHeight = 13
      TabOrder = 1
      OnKeyPress = CBDiaKeyPress
      Items.Strings = (
        ''
        '01'
        '02'
        '03'
        '04'
        '05'
        '06'
        '07'
        '08'
        '09'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15'
        '16'
        '17'
        '18'
        '19'
        '20'
        '21'
        '22'
        '23'
        '24'
        '25'
        '26'
        '27'
        '28'
        '29'
        '30'
        '31')
    end
  end
  inherited QPesquisa: TQuery
    SQL.Strings = (
      
        'Select CODIGO,NOME,GRUPO,ANIVERSARIO,CARGO,FORNECEDOR as Cod_For' +
        'necedor, Forn_Razao as Fornecedor'
      
        'from MalaDiretaFornecedor inner join Fornecedor on MalaDiretaFor' +
        'necedor.Fornecedor = Forn_Codigo')
  end
  object DSFornecedor: TDataSource
    DataSet = DMGestao.QFornecedor
    Left = 272
    Top = 56
  end
end
